home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / others / amimacro.zip / PSYCHLIT.SMM < prev    next >
INI File  |  1993-02-13  |  18KB  |  1,161 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     CITIZEN Dot Matrix
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Imports and Processes Searches from the PsychLit Database..
  19.     
  20.     
  21.     
  22.     
  23.     729649339
  24.     30
  25.     698364731
  26.     1055
  27.     5
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [tag]
  54.     Function
  55.     3
  56.     [fnt]
  57.         Draft 12cpi
  58.         160
  59.         0
  60.         32784
  61.     [algn]
  62.         1
  63.         1
  64.         0
  65.         0
  66.         0
  67.     [spc]
  68.         40
  69.         216
  70.         1
  71.         0
  72.         0
  73.         1
  74.         100
  75.     [brk]
  76.         68
  77.     [line]
  78.         8
  79.         0
  80.         1
  81.         0
  82.         1
  83.         1
  84.         1
  85.         10
  86.         10
  87.         1
  88.     [spec]
  89.         0
  90.         0
  91.         
  92.         0
  93.         1
  94.         1
  95.         0
  96.         0
  97.         0
  98.         0
  99.     [nfmt]
  100.         272
  101.         1
  102.         3
  103.         .
  104.         ,
  105.         $
  106.     Body Text
  107.     0
  108.     0
  109. [l1]
  110.     0
  111. [pg]
  112.     5
  113.     60 0 19 0 0 1 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  114.     120 0 16 0 0 1 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  115.     180 0 10 0 0 1 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  116.     240 0 45 0 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  117.     254 0 0 1025 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  118. [edoc]
  119. <:#216,10800>FUNCTION PsychLitImport()
  120.  
  121. <:#216,10800>Onerror endit
  122.  
  123. <:#216,10800>Oncancel endit
  124.  
  125. <:#216,10800>filepath="\amipro\school\psychlit"
  126.  
  127. <:#216,10800>if -1 = DOSchdir(filepath)
  128.  
  129. <:#216,10800>Endif
  130.  
  131. <:#216,10800>Box1=DialogBox(".","Box1")
  132.  
  133. <:#216,10800>If Box1=0
  134.  
  135. <:#216,10800>    goto endit
  136.  
  137. <:#216,10800>Endif
  138.  
  139. <:#216,10800>Filename=GetDialogField$(9001)
  140.  
  141. <:#216,10800>filepath=GetCurrentDir$()
  142.  
  143. <:#216,10800>Filename=Strcat$(filepath,filename)
  144.  
  145. <:#216,10800>ImportExport(0,Filename,"ASCII",0,"para",pcascii,0)
  146.  
  147. <:#216,10800>DocInfo("","",1)
  148.  
  149. <:#216,10800>Darkmode(1)
  150.  
  151. <:#216,10800>Hourglass(1)
  152.  
  153. <:#216,10800>t=0
  154.  
  155. <:#216,10800>w=0
  156.  
  157. <:#216,10800>ab=0
  158.  
  159. <:#216,10800>n=0
  160.  
  161. <:#216,10800>Dim Abstract(900)
  162.  
  163. <:#216,10800>Dim Words(100)
  164.  
  165. <:#216,10800>Dim terms(100)
  166.  
  167. <:#216,10800>Type("<[>CTRLEnd]<[>Enter]<[>Enter]<[>CTRLHome]")
  168.  
  169. <:#216,10800>ital=Decide("Do you want to Italicize the Search History?")
  170.  
  171. <:#216,10800>rep=Decide("Do you want to Convert # symbols to their search terms?")
  172.  
  173. <:#216,10800>Replace(0,0,5,"1 of","")
  174.  
  175. <:#216,10800>Type( "<[>Home]<[>Enter]" )
  176.  
  177. <:#216,10800>PageBreak(1)
  178.  
  179. <:#216,10800>Type("<[>up]<[>up]")
  180.  
  181. <:#216,10800>stop=CurWord$()
  182.  
  183. <:#216,10800>Type("<[>CTRLHome]<[>Down]<[>Down]")
  184.  
  185. <:#216,10800>For x = 1 to stop
  186.  
  187. <:#216,10800>    num=curword$()
  188.  
  189. <:#216,10800>    num=strcat$("#",num)
  190.  
  191. <:#216,10800>    Type("<[>CTRLRight]<[>CTRLRight]<[>CTRLRight]<[>CTRLSHIFTDown]")
  192.  
  193. <:#216,10800>    value=CurShade$()
  194.  
  195. <:#216,10800>    If Right$(value,7)="- in DE"
  196.  
  197. <:#216,10800>        l=len(value) - 7
  198.  
  199. <:#216,10800>        value=Left$(value,l)
  200.  
  201. <:#216,10800>    Elseif Right$(value,6)=" in DE"
  202.  
  203. <:#216,10800>        l=len(value) - 6
  204.  
  205. <:#216,10800>        value=Left$(value,l)
  206.  
  207. <:#216,10800>    Endif
  208.  
  209. <:#216,10800>    If 0 !=Instr(0,value,"or") and rep=0
  210.  
  211. <:#216,10800>        skipword=1
  212.  
  213. <:#216,10800>    Elseif 0 !=Instr(0,value,"and") and rep=0
  214.  
  215. <:#216,10800>        skipword=1
  216.  
  217. <:#216,10800>    Elseif 0 !=Instr(0,value,"or")
  218.  
  219. <:#216,10800>        hold=value
  220.  
  221. <:#216,10800>        Replace(0,0,1028," or ",":")
  222.  
  223. <:#216,10800>        Type("<[>CTRLSHIFTUp]<[>CTRLRight]<[>CTRLRight]<[>CTRLRight]")
  224.  
  225. <:#216,10800>        Type("<[>Backspace]<[>CTRLSHIFTDown]")
  226.  
  227. <:#216,10800>        If 0 !=Instr(0,value,"and")
  228.  
  229. <:#216,10800>            Replace(0,0,1028," and ",":")
  230.  
  231. <:#216,10800>            Type("<[>CTRLSHIFTUp]<[>CTRLRight]<[>CTRLRight]<[>CTRLRight]")
  232.  
  233. <:#216,10800>            Type("<[>Backspace]<[>CTRLSHIFTDown]")
  234.  
  235. <:#216,10800>        Endif
  236.  
  237. <:#216,10800>        value=Curshade$()
  238.  
  239. <:#216,10800>        t=t+1
  240.  
  241. <:#216,10800>        terms(t)=value
  242.  
  243. <:#216,10800>        Type("{hold}")
  244.  
  245. <:#216,10800>        value=strcat$(left$(hold,10),". . . ")
  246.  
  247. <:#216,10800>        skipword=1
  248.  
  249. <:#216,10800>    Elseif 0 !=Instr(0,value,"and")
  250.  
  251. <:#216,10800>        hold=value
  252.  
  253. <:#216,10800>        Replace(0,0,1028," and ",":")
  254.  
  255. <:#216,10800>        Type("<[>CTRLSHIFTUp]<[>CTRLRight]<[>CTRLRight]<[>CTRLRight]")
  256.  
  257. <:#216,10800>        Type("<[>Backspace]<[>CTRLSHIFTDown]")
  258.  
  259. <:#216,10800>        value=Curshade$()
  260.  
  261. <:#216,10800>        t=t+1
  262.  
  263. <:#216,10800>        terms(t)=value
  264.  
  265. <:#216,10800>        Type("{hold}")
  266.  
  267. <:#216,10800>        value=strcat$(left$(hold,10),". . . ")
  268.  
  269. <:#216,10800>        skipword=1
  270.  
  271. <:#216,10800>    Endif
  272.  
  273. <:#216,10800>    Type("<[>right]")
  274.  
  275. <:#216,10800>    If rep=1
  276.  
  277. <:#216,10800>        Replace(0,0,1044,num,value)
  278.  
  279. <:#216,10800>    Endif
  280.  
  281. <:#216,10800>    If skipword=0
  282.  
  283. <:#216,10800>        w=w+1
  284.  
  285. <:#216,10800>        Words(w)=value
  286.  
  287. <:#216,10800>    Endif
  288.  
  289. <:#216,10800>    Skipword=0
  290.  
  291. <:#216,10800>Next
  292.  
  293. <:#216,10800>If Terms(1)=""
  294.  
  295. <:#216,10800>    For ww = 1 to w
  296.  
  297. <:#216,10800>        word=words(ww)
  298.  
  299. <:#216,10800>        Replace(0,8,1060,word,word)
  300.  
  301. <:#216,10800>    Next    
  302.  
  303. <:#216,10800>    goto wordsearch
  304.  
  305. <:#216,10800>Endif
  306.  
  307. <:#216,10800>Darkmode(0)
  308.  
  309. <:#216,10800>Darkmode(1)
  310.  
  311. <:#216,10800>For i = 1 to t
  312.  
  313. <:#216,10800>    value=terms(i)
  314.  
  315. <:#216,10800>    skipr=Decide("Search for terms in '{value}'?")
  316.  
  317. <:#216,10800>    If Skipr=0
  318.  
  319. <:#216,10800>        goto Skip1
  320.  
  321. <:#216,10800>    Endif
  322.  
  323. <:#216,10800>    For ii=1 to 20
  324.  
  325. <:#216,10800>        term=StrField$(value,ii,":")
  326.  
  327. <:#216,10800>        If term<<<;>""
  328.  
  329. <:#216,10800>            Replace(0,8,1060,term,term)
  330.  
  331. <:#216,10800>        Else Break
  332.  
  333. <:#216,10800>        Endif
  334.  
  335. <:#216,10800>    Next
  336.  
  337. <:#216,10800>    Skip1:
  338.  
  339. <:#216,10800>Next
  340.  
  341. @Function@<:#216,10800>WordSearch:
  342.  
  343. <:#216,10800>For ww = 1 to w
  344.  
  345. <:#216,10800>    Filledit(9500,words(ww))
  346.  
  347. <:#216,10800>Next
  348.  
  349. <:#216,10800>Box2=DialogBox(".","box2")
  350.  
  351. <:#216,10800>If box2=1
  352.  
  353. <:#216,10800>    Word=getdialogField$(9500)
  354.  
  355. <:#216,10800>    Replace(0,8,1060,word,word)
  356.  
  357. <:#216,10800>    Goto wordsearch
  358.  
  359. <:#216,10800>Endif
  360.  
  361. @Function@<:#216,10800>IndexRecords:
  362.  
  363. <:#216,10800>Replace(0,0,9233,"PsycLIT Database Copyright","</i>")
  364.  
  365. <:#216,10800>Replace(0,0,9233,"American Psychological Assn","APA")
  366.  
  367. <:#216,10800>Replace(0,0,9233,", all rights reserved","")
  368.  
  369. <:#216,10800>Replace(0,0,5,"TI:","")
  370.  
  371. <:#216,10800>Type("<[>Home]<[>Up]<[>Enter]<[>CTRLHome]")
  372.  
  373. <:#216,10800>ABbold=Decide("Do you want to Highlight the Abstract?")
  374.  
  375. <:#216,10800>ABindex=Decide("Do you want to Index the records?")
  376.  
  377. <:#216,10800>Darkmode(1)
  378.  
  379. <:#216,10800>While hold<<<;>-7
  380.  
  381. <:#216,10800>    ab=ab+1
  382.  
  383. <:#216,10800>    StatusBarMsg("Processing Record {ab}")
  384.  
  385. <:#216,10800>    hold=Replace(0,0,5,"TI:","")
  386.  
  387. <:#216,10800>    If Hold<<<;>-7
  388.  
  389. <:#216,10800>        Type("<[>Home]<[>CTRLLeft]<[>CTRLLeft]<[>CTRLLeft]<[>F6]")
  390.  
  391. <:#216,10800>          Type("<[>SHIFTHome]<[>Del]<[>Backspace]")
  392.  
  393. <:#216,10800>    Endif
  394.  
  395. <:#216,10800>    hold=Replace(0,0,5,"AU:","")
  396.  
  397. <:#216,10800>    If Hold<<<;>-7
  398.  
  399. <:#216,10800>        Type("<[>Home]<[>Down]")
  400.  
  401. <:#216,10800>        If CurWord$()<<<;>"IN"
  402.  
  403. <:#216,10800>                 Type("<[>Enter]")
  404.  
  405. <:#216,10800>             Endif
  406.  
  407. <:#216,10800>    Endif
  408.  
  409. <:#216,10800>    If abbold=1
  410.  
  411. <:#216,10800>        hold=Replace(0,0,5,"AB:","")
  412.  
  413. <:#216,10800>        If hold<<<;>-7
  414.  
  415. <:#216,10800>            Type("<[>Home]<[>F4]")
  416.  
  417. <:#216,10800>        Endif
  418.  
  419. <:#216,10800>        Type("<[>Down]")
  420.  
  421. <:#216,10800>    Endif        
  422.  
  423. <:#216,10800>    If abindex=1
  424.  
  425. <:#216,10800>        hold=Replace(0,0,5,"AN:","")
  426.  
  427. <:#216,10800>        If hold<<<;>-7
  428.  
  429. <:#216,10800>            Type("<[>End]<[>CTRLSHIFTLeft]<[>CTRLSHIFTLeft]<[>CTRLSHIFTLeft]")
  430.  
  431. <:#216,10800>            Abstract(ab)=strcat$(CurShade$()," = #{ab}")
  432.  
  433. <:#216,10800>        Endif
  434.  
  435. <:#216,10800>        Type("<[>Down]")
  436.  
  437. <:#216,10800>    Endif
  438.  
  439. <:#216,10800>WEND
  440.  
  441. @Function@<:#216,10800>Total:
  442.  
  443. <:#216,10800>If abindex=1
  444.  
  445. <:#216,10800>    StatusBarMsg("Typing Abstract Index")
  446.  
  447. <:#216,10800>    Type("<[>CTRLEnd]<[>Enter]")
  448.  
  449. <:#216,10800>    Underline()
  450.  
  451. <:#216,10800>    Type("<[>F6]Abstracts in File by Number<[>enter]<[>F2]")
  452.  
  453. <:#216,10800>    Underline()
  454.  
  455. <:#216,10800>    ArraySort(&Abstract)
  456.  
  457. <:#216,10800>    rows=round(ab/4)
  458.  
  459. <:#216,10800>    hold=mod(ab,"4")
  460.  
  461. <:#216,10800>    If hold=1
  462.  
  463. <:#216,10800>        rows=rows+1
  464.  
  465. <:#216,10800>    Elseif hold=2
  466.  
  467. <:#216,10800>        rows=rows+1
  468.  
  469. <:#216,10800>    Endif
  470.  
  471. <:#216,10800>    For c = 1 to rows
  472.  
  473. <:#216,10800>        col=1
  474.  
  475. <:#216,10800>        ab=c
  476.  
  477. <:#216,10800>        RowLoop:
  478.  
  479. <:#216,10800>            abnum=abstract(ab)
  480.  
  481. <:#216,10800>            Type("{abnum}")
  482.  
  483. <:#216,10800>            If col=4
  484.  
  485. <:#216,10800>                Type("<[>enter]")
  486.  
  487. <:#216,10800>                goto loopbreak
  488.  
  489. <:#216,10800>            Endif
  490.  
  491. <:#216,10800>            Type("<[>tab]")
  492.  
  493. <:#216,10800>            col=col+1
  494.  
  495. <:#216,10800>            ab=ab+rows
  496.  
  497. <:#216,10800>        goto rowloop
  498.  
  499. <:#216,10800>        LoopBreak:
  500.  
  501. <:#216,10800>    Next
  502.  
  503. <:#216,10800>Endif
  504.  
  505. @Function@<:#216,10800>PurgeFrame:
  506.  
  507. <:#216,10800>Type( "<[>CTRLHome]" )
  508.  
  509. <:#216,10800>AddFrame(1440 -1440 4320 -2880  )
  510.  
  511. <:#216,10800>FrameModInit( )
  512.  
  513. <:#216,10800>FrameModLines(1 3 2 0 12632256 0 0 0 0 0  )
  514.  
  515. FrameModType(134414912 25 "psylitv.smm"   )
  516.  
  517. <:#216,10800>FrameModBorders(2880 1440 1440 1440 72 216 72 0 1  )
  518.  
  519. <:#216,10800>FrameModColumns(0 2 0 1 144 2736 0  )
  520.  
  521. <:#216,10800>FrameModFinish( )
  522.  
  523. <:#216,10800>Type( "<[>Enter]" )
  524.  
  525. <:#216,10800>Center( )
  526.  
  527. <:#216,10800>FontPointSizeChange(16  )
  528.  
  529. <:#216,10800>Type( "Purge Duplicates and Total Abstracts<[>Esc]<[>Esc]" )
  530.  
  531. <:#216,10800>AddFrame(4680 -1440 7560 -2880  )
  532.  
  533. <:#216,10800>FrameModInit( )
  534.  
  535. <:#216,10800>FrameModLines(1 3 2 0 12632256 0 0 0 0 0  )
  536.  
  537. FrameModType(134414912 25 "pyjnlist.smm"   )
  538.  
  539. <:#216,10800>FrameModBorders(2880 1440 1440 4680 72 216 72 0 1  )
  540.  
  541. <:#216,10800>FrameModColumns(0 2 0 1 144 2736 0  )
  542.  
  543. <:#216,10800>FrameModFinish( )
  544.  
  545. <:#216,10800>Type( "<[>Enter]" )
  546.  
  547. <:#216,10800>Center( )
  548.  
  549. <:#216,10800>FontPointSizeChange(16)
  550.  
  551. <:#216,10800>Type( "Create Alphabetical Journal List<[>Esc]<[>Esc]" )
  552.  
  553. <:#216,10800>AddFrame(7920 -1440 10800 -2880  )
  554.  
  555. <:#216,10800>FrameModInit( )
  556.  
  557. <:#216,10800>FrameModLines(1 3 2 0 12632256 0 0 0 0 0  )
  558.  
  559. FrameModType( 134414912 125 "pybiblio.smm"   )
  560.  
  561. <:#216,10800>FrameModBorders(2880 1440 1440 7920 72 216 72 0 1  )
  562.  
  563. <:#216,10800>FrameModColumns(0 2 0 1 144 2736 0  )
  564.  
  565. <:#216,10800>FrameModFinish( )
  566.  
  567. <:#216,10800>Type("<[>Enter]")
  568.  
  569. <:#216,10800>Center()
  570.  
  571. <:#216,10800>FontPointSizeChange(16)
  572.  
  573. <:#216,10800>Type( "Create APA-Style Reference List<[>Esc]<[>Esc]<[>Enter]" )
  574.  
  575. <:#216,10800>Type( "<[>Enter]" )
  576.  
  577. @Function@<:#216,10800>Endit:
  578.  
  579. <:#216,10800>StatusBarMsg("")
  580.  
  581. <:#216,10800>Darkmode(0)
  582.  
  583. <:#216,10800>HourGlass(0)
  584.  
  585. @Function@<:#216,10800>END FUNCTION
  586.  
  587. <:#216,10800>
  588.  
  589. @Function@<:#216,10800>DIALOG Box1
  590.  
  591. <:#216,10800>-2134376448 4 96 43 144 91 "" "" "PsychLit Import"
  592.  
  593. <:#216,10800>FONT 8 "Helv"
  594.  
  595. <:#216,10800>93 8 40 14 1 1342373889 "button" "OK" 0 
  596.  
  597. <:#216,10800>93 32 40 14 2 1342373888 "button" "Cancel" 0 
  598.  
  599. <:#216,10800>11 25 70 56 9001 1352728579 "listbox" "" 0 
  600.  
  601. <:#216,10800>11 8 72 16 1000 1342177280 "static" "Select PsychLit File to Import:" 0 
  602.  
  603. @Function@<:#216,10800>END DIALOG
  604.  
  605. <:#216,10800>
  606.  
  607. @Function@<:#216,10800>DIALOG Box2
  608.  
  609. <:#216,10800>-2134376448 4 97 43 142 94 "" "" "PsychLit Import"
  610.  
  611. <:#216,10800>FONT 8 "Helv"
  612.  
  613. <:#216,10800>8 8 72 16 1000 1342177280 "static" "Select Terms To Make Italic:" 0 
  614.  
  615. <:#216,10800>9 25 72 67 9500 1344471041 "combobox" "" 0 
  616.  
  617. <:#216,10800>90 8 40 14 1 1342373889 "button" "OK" 0 
  618.  
  619. <:#216,10800>90 32 40 14 2 1342373888 "button" "Cancel" 0 
  620.  
  621. @Function@<:#216,10800>END DIALOG
  622.  
  623. <:#216,10800>
  624.  
  625. <:#216,10800>
  626.  
  627. >
  628.  
  629. [Embedded]
  630. 00011359
  631. >
  632. [macsum] 3
  633. PsychLitImport 0 0 33 0
  634. Box1 5561 0 -1 235
  635. Box2 5851 0 -1 244
  636. [macse]
  637. 14 PsychLitImport
  638. 20 00005521
  639. 19 00005521
  640. 7 "\amipro\school\psychlit"
  641. 8 1
  642. 5 -1
  643. 0 781 "{1}"
  644. 13
  645. 18 0
  646. 11 00000121
  647. 0 26 "." "Box1"
  648. 13
  649. 8 2
  650. 6 2
  651. 5 0
  652. 18 0
  653. 11 00000189
  654. 10 00005521
  655. 0 27 9001
  656. 13
  657. 8 3
  658. 0 290
  659. 13
  660. 8 1
  661. 0 16 "{1}" "{3}"
  662. 13
  663. 8 3
  664. 2 107 1 0 "{3}" "ASCII" 0 "para" 8 0
  665. 2 109 1 "" "" 1
  666. 0 292 1
  667. 0 296 1
  668. 5 0
  669. 8 4
  670. 5 0
  671. 8 5
  672. 5 0
  673. 8 6
  674. 5 0
  675. 8 7
  676. 5 900
  677. 21 8 [X]
  678. 5 100
  679. 21 9 [X]
  680. 5 100
  681. 21 10 [X]
  682. 0 6 "[16419][13][13][16420]"
  683. 0 2 "Do you want to Italicize the Search History?"
  684. 13
  685. 8 11
  686. 0 2 "Do you want to Convert # symbols to their search terms?"
  687. 13
  688. 8 12
  689. 2 488 1 0 0 5 "1 of" ""
  690. 0 6 "[36][13]"
  691. 2 357 1 1
  692. 0 6 "[38][38]"
  693. 0 23
  694. 13
  695. 8 13
  696. 0 6 "[16420][40][40]"
  697. 5 1
  698. 8 14
  699. 6 13
  700. 6 14
  701. 18 2
  702. 12 00000779
  703. 10 00002165
  704. 5 1
  705. 6 14
  706. 3 0
  707. 8 14
  708. 10 00000700
  709. 0 23
  710. 13
  711. 8 15
  712. 0 16 "#" "{15}"
  713. 13
  714. 8 15
  715. 0 6 "[16423][16423][16423][20520]"
  716. 0 24
  717. 13
  718. 8 16
  719. 0 807 "{16}" 7
  720. 13
  721. 7 "- in DE"
  722. 18 0
  723. 11 00001003
  724. 0 14 "{16}"
  725. 13
  726. 5 7
  727. 3 1
  728. 8 17
  729. 0 806 "{16}" "{17}"
  730. 13
  731. 8 16
  732. 10 00001118
  733. 0 807 "{16}" 6
  734. 13
  735. 7 " in DE"
  736. 18 0
  737. 11 00001118
  738. 0 14 "{16}"
  739. 13
  740. 5 6
  741. 3 1
  742. 8 17
  743. 0 806 "{16}" "{17}"
  744. 13
  745. 8 16
  746. 5 0
  747. 0 808 0 "{16}" "or"
  748. 13
  749. 18 1
  750. 6 12
  751. 5 0
  752. 18 0
  753. 1 1
  754. 11 00001213
  755. 5 1
  756. 8 18
  757. 10 00002000
  758. 5 0
  759. 0 808 0 "{16}" "and"
  760. 13
  761. 18 1
  762. 6 12
  763. 5 0
  764. 18 0
  765. 1 1
  766. 11 00001309
  767. 5 1
  768. 8 18
  769. 10 00002000
  770. 5 0
  771. 0 808 0 "{16}" "or"
  772. 13
  773. 18 1
  774. 11 00001727
  775. 6 16
  776. 8 19
  777. 2 488 1 0 0 1028 " or " ":"
  778. 0 6 "[20518][16423][16423][16423]"
  779. 0 6 "[8][20520]"
  780. 5 0
  781. 0 808 0 "{16}" "and"
  782. 13
  783. 18 1
  784. 11 00001587
  785. 2 488 1 0 0 1028 " and " ":"
  786. 0 6 "[20518][16423][16423][16423]"
  787. 0 6 "[8][20520]"
  788. 0 24
  789. 13
  790. 8 16
  791. 6 4
  792. 5 1
  793. 3 0
  794. 8 4
  795. 6 4
  796. 6 16
  797. 23 10
  798. 0 6 "{19}"
  799. 0 806 "{19}" 10
  800. 13
  801. 0 16 [X] ". . . "
  802. 13
  803. 8 16
  804. 5 1
  805. 8 18
  806. 10 00002000
  807. 5 0
  808. 0 808 0 "{16}" "and"
  809. 13
  810. 18 1
  811. 11 00002000
  812. 6 16
  813. 8 19
  814. 2 488 1 0 0 1028 " and " ":"
  815. 0 6 "[20518][16423][16423][16423]"
  816. 0 6 "[8][20520]"
  817. 0 24
  818. 13
  819. 8 16
  820. 6 4
  821. 5 1
  822. 3 0
  823. 8 4
  824. 6 4
  825. 6 16
  826. 23 10
  827. 0 6 "{19}"
  828. 0 806 "{19}" 10
  829. 13
  830. 0 16 [X] ". . . "
  831. 13
  832. 8 16
  833. 5 1
  834. 8 18
  835. 0 6 "[39]"
  836. 6 12
  837. 5 1
  838. 18 0
  839. 11 00002074
  840. 2 488 1 0 0 1044 "{15}" "{16}"
  841. 6 18
  842. 5 0
  843. 18 0
  844. 11 00002141
  845. 6 5
  846. 5 1
  847. 3 0
  848. 8 5
  849. 6 5
  850. 6 16
  851. 23 9
  852. 5 0
  853. 8 18
  854. 10 00000744
  855. 5 1
  856. 22 10
  857. 7 ""
  858. 18 0
  859. 11 00002367
  860. 5 1
  861. 8 20
  862. 6 5
  863. 6 20
  864. 18 2
  865. 12 00002291
  866. 10 00002354
  867. 5 1
  868. 6 20
  869. 3 0
  870. 8 20
  871. 10 00002213
  872. 6 20
  873. 22 9
  874. 8 21
  875. 2 488 1 0 8 1060 "{21}" "{21}"
  876. 10 00002256
  877. 10 00002820
  878. 0 292 0
  879. 0 292 1
  880. 5 1
  881. 8 22
  882. 6 4
  883. 6 22
  884. 18 2
  885. 12 00002474
  886. 10 00002820
  887. 5 1
  888. 6 22
  889. 3 0
  890. 8 22
  891. 10 00002396
  892. 6 22
  893. 22 10
  894. 8 16
  895. 0 2 "Search for terms in '{16}'?"
  896. 13
  897. 8 23
  898. 6 23
  899. 5 0
  900. 18 0
  901. 11 00002581
  902. 10 00002807
  903. 5 1
  904. 8 24
  905. 5 20
  906. 6 24
  907. 18 2
  908. 12 00002671
  909. 10 00002807
  910. 5 1
  911. 6 24
  912. 3 0
  913. 8 24
  914. 10 00002592
  915. 0 20 "{16}" "{24}" ":"
  916. 13
  917. 8 25
  918. 6 25
  919. 7 ""
  920. 18 1
  921. 11 00002781
  922. 2 488 1 0 8 1060 "{25}" "{25}"
  923. 10 00002794
  924. 10 00002807
  925. 10 00002636
  926. 10 00002439
  927. 5 1
  928. 8 20
  929. 6 5
  930. 6 20
  931. 18 2
  932. 12 00002909
  933. 10 00002949
  934. 5 1
  935. 6 20
  936. 3 0
  937. 8 20
  938. 10 00002831
  939. 6 20
  940. 22 9
  941. 0 31 9500 [X]
  942. 10 00002874
  943. 0 26 "." "box2"
  944. 13
  945. 8 26
  946. 6 26
  947. 5 1
  948. 18 0
  949. 11 00003072
  950. 0 27 9500
  951. 13
  952. 8 21
  953. 2 488 1 0 8 1060 "{21}" "{21}"
  954. 10 00002820
  955. 2 488 1 0 0 9233 "PsycLIT Database Copyright" "</i>"
  956. 2 488 1 0 0 9233 "American Psychological Assn" "APA"
  957. 2 488 1 0 0 9233 ", all rights reserved" ""
  958. 2 488 1 0 0 5 "TI:" ""
  959. 0 6 "[36][38][13][16420]"
  960. 0 2 "Do you want to Highlight the Abstract?"
  961. 13
  962. 8 27
  963. 0 2 "Do you want to Index the records?"
  964. 13
  965. 8 28
  966. 0 292 1
  967. 6 19
  968. 5 -7
  969. 18 1
  970. 11 00004050
  971. 6 6
  972. 5 1
  973. 3 0
  974. 8 6
  975. 0 789 "Processing Record {6}"
  976. 2 488 1 0 0 5 "TI:" ""
  977. 13
  978. 8 19
  979. 6 19
  980. 5 -7
  981. 18 1
  982. 11 00003598
  983. 0 6 "[36][16421][16421][16421][117]"
  984. 0 6 "[4132][46][8]"
  985. 2 488 1 0 0 5 "AU:" ""
  986. 13
  987. 8 19
  988. 6 19
  989. 5 -7
  990. 18 1
  991. 11 00003728
  992. 0 6 "[36][40]"
  993. 0 23
  994. 13
  995. 7 "IN"
  996. 18 1
  997. 11 00003728
  998. 0 6 "[13]"
  999. 6 27
  1000. 5 1
  1001. 18 0
  1002. 11 00003852
  1003. 2 488 1 0 0 5 "AB:" ""
  1004. 13
  1005. 8 19
  1006. 6 19
  1007. 5 -7
  1008. 18 1
  1009. 11 00003840
  1010. 0 6 "[36][115]"
  1011. 0 6 "[40]"
  1012. 6 28
  1013. 5 1
  1014. 18 0
  1015. 11 00004037
  1016. 2 488 1 0 0 5 "AN:" ""
  1017. 13
  1018. 8 19
  1019. 6 19
  1020. 5 -7
  1021. 18 1
  1022. 11 00004025
  1023. 0 6 "[35][20517][20517][20517]"
  1024. 6 6
  1025. 0 24
  1026. 13
  1027. 0 16 [X] " = #{6}"
  1028. 13
  1029. 23 8
  1030. 0 6 "[40]"
  1031. 10 00003392
  1032. 6 28
  1033. 5 1
  1034. 18 0
  1035. 11 00004664
  1036. 0 789 "Typing Abstract Index"
  1037. 0 6 "[16419][13]"
  1038. 2 256 1
  1039. 0 6 "[117]Abstracts in File by Number[13][113]"
  1040. 2 256 1
  1041. 0 1043 &8
  1042. 6 6
  1043. 5 4
  1044. 4 1
  1045. 0 786 [X]
  1046. 13
  1047. 8 29
  1048. 0 788 "{6}" "4"
  1049. 13
  1050. 8 19
  1051. 6 19
  1052. 5 1
  1053. 18 0
  1054. 11 00004336
  1055. 6 29
  1056. 5 1
  1057. 3 0
  1058. 8 29
  1059. 10 00004388
  1060. 6 19
  1061. 5 2
  1062. 18 0
  1063. 11 00004388
  1064. 6 29
  1065. 5 1
  1066. 3 0
  1067. 8 29
  1068. 5 1
  1069. 8 30
  1070. 6 29
  1071. 6 30
  1072. 18 2
  1073. 12 00004478
  1074. 10 00004664
  1075. 5 1
  1076. 6 30
  1077. 3 0
  1078. 8 30
  1079. 10 00004399
  1080. 5 1
  1081. 8 31
  1082. 6 30
  1083. 8 6
  1084. 6 6
  1085. 22 8
  1086. 8 32
  1087. 0 6 "{32}"
  1088. 6 31
  1089. 5 4
  1090. 18 0
  1091. 11 00004584
  1092. 0 6 "[13]"
  1093. 10 00004651
  1094. 0 6 "[9]"
  1095. 6 31
  1096. 5 1
  1097. 3 0
  1098. 8 31
  1099. 6 6
  1100. 6 29
  1101. 3 0
  1102. 8 6
  1103. 10 00004500
  1104. 10 00004443
  1105. 0 6 "[16420]"
  1106. 2 413 1 1440 -1440 4320 -2880
  1107. 2 421 1
  1108. 2 416 1 1 3 2 0 12632256 0 0 0 0 0
  1109. 2 417 1 134414912 25 "psylitv.smm"
  1110. 2 418 1 2880 1440 1440 1440 72 216 72 0 1
  1111. 2 419 1 0 2 0 1 144 2736 0
  1112. 2 420 1
  1113. 0 6 "[13]"
  1114. 2 260 1
  1115. 2 279 1 16
  1116. 0 6 "Purge Duplicates and Total Abstracts[27][27]"
  1117. 2 413 1 4680 -1440 7560 -2880
  1118. 2 421 1
  1119. 2 416 1 1 3 2 0 12632256 0 0 0 0 0
  1120. 2 417 1 134414912 25 "pyjnlist.smm"
  1121. 2 418 1 2880 1440 1440 4680 72 216 72 0 1
  1122. 2 419 1 0 2 0 1 144 2736 0
  1123. 2 420 1
  1124. 0 6 "[13]"
  1125. 2 260 1
  1126. 2 279 1 16
  1127. 0 6 "Create Alphabetical Journal List[27][27]"
  1128. 2 413 1 7920 -1440 10800 -2880
  1129. 2 421 1
  1130. 2 416 1 1 3 2 0 12632256 0 0 0 0 0
  1131. 2 417 1 134414912 125 "pybiblio.smm"
  1132. 2 418 1 2880 1440 1440 7920 72 216 72 0 1
  1133. 2 419 1 0 2 0 1 144 2736 0
  1134. 2 420 1
  1135. 0 6 "[13]"
  1136. 2 260 1
  1137. 2 279 1 16
  1138. 0 6 "Create APA-Style Reference List[27][27][13]"
  1139. 0 6 "[13]"
  1140. 0 789 ""
  1141. 0 292 0
  1142. 0 296 0
  1143. 6 0
  1144. 15
  1145. 9
  1146. DIALOG Box1
  1147. -2134376448 4 96 43 144 91 "" "" "PsychLit Import" 
  1148. FONT 8 "Helv" 
  1149. 93 8 40 14 1 1342373889 "button" "OK" 0 
  1150. 93 32 40 14 2 1342373888 "button" "Cancel" 0 
  1151. 11 25 70 56 9001 1352728579 "listbox" "" 0 
  1152. 11 8 72 16 1000 1342177280 "static" "Select PsychLit File to Import:" 0 
  1153. DIALOG Box2
  1154. -2134376448 4 97 43 142 94 "" "" "PsychLit Import" 
  1155. FONT 8 "Helv" 
  1156. 8 8 72 16 1000 1342177280 "static" "Select Terms To Make Italic:" 0 
  1157. 9 25 72 67 9500 1344471041 "combobox" "" 0 
  1158. 90 8 40 14 1 1342373889 "button" "OK" 0 
  1159. 90 32 40 14 2 1342373888 "button" "Cancel" 0 
  1160. 00011384
  1161.